home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 30 / 030.d81 / ml saver (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  308b  |  15 lines
  1. 100 print"[147]ml saver - robert bixby"
  2. 110 print"this saves ml to disk"
  3. 120 input"start address";a
  4. 130 input"  end address";b
  5. 140 a1=int(a/256):a2=a-256*a1
  6. 150 input"     filename";e$
  7. 160 open15,8,15,"s0:"+e$
  8. 170 open1,8,1,"0:"+e$+",p,w"
  9. 180 print#1,chr$(a2)chr$(a1);
  10. 190 forj=atob:print#1,chr$(peek(j));
  11. 200 next
  12. 210 close1:verify e$,8,1
  13. 220 input#15,a$,b$:printa$,b$:close15
  14. 230 end
  15.